home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Ahoy 1987 May
/
Ahoy_Magazine_87-05_1987_Double_L_Side_A.d64
/
128 bug rep 2
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
2KB
|
47 lines
10 printchr$(147)"loading and checking the data...":j=4864
20 forb=0to11:reada:ifa<0ora>255then40
30 pokej+b,a:x=x+a:nextb:reada:ifa=xthen50
40 print:print"error in data line:"peek(66)*256+peek(65):end
50 x=0:j=j+12:ifj<5213then20
60 poke208,0:poke5213,0:a$="y":b$=a$:c$="d":d$="disk":d=8:printchr$(147)
70 input"do you want automatic saves (y/n)";a$:print:ifa$="y"then90
80 print"no automatic saves...":goto150
90 poke5213,1:input"disk or tape (d/t)";c$:ifc$<>"d"thend=1:d$="tape"
100 poke5214,d:d$=d$+" drive":print:input"file number (0-99)";n
110 n$=right$(str$(n),2):ifn<10thenn$=chr$(48)+chr$(n+48)
120 f$="backup":print:input"filename";f$:f$=n$+left$(f$,14):l=len(f$)
130 poke5215,l:forj=1tol:poke5215+j,asc(mid$(f$,j,1)):nextj:print
140 print"saving device ** "d$:print"starting with ** "f$
150 print:input"is this correct (y/n)";b$:ifb$<>"y"then60
160 poke770,198:poke771,77:sys4864:end
170 data32,58,20,169,41,162,19,236,3,3,208,4,955
180 data169,198,162,77,141,2,3,142,3,3,224,19,1143
190 data208,7,32,125,255,79,78,0,96,32,125,255,1292
200 data79,70,70,0,96,162,0,134,251,189,0,2,1053
210 data240,19,201,48,144,9,201,58,176,5,133,251,1485
220 data232,208,238,134,252,165,251,208,3,76,198,77,2042
230 data169,0,166,235,164,236,133,253,133,254,142,47,1932
240 data20,140,48,20,24,101,22,69,254,230,254,24,1206
250 data101,23,69,254,170,230,254,164,252,185,0,2,1704
260 data133,251,201,34,208,6,165,253,73,255,133,253,1965
270 data201,32,208,4,165,253,240,8,138,24,101,251,1625
280 data69,254,170,44,198,254,230,252,164,251,208,213,2307
290 data138,41,240,74,74,74,74,24,105,65,141,88,1138
300 data20,138,41,15,24,105,65,141,89,20,32,79,769
310 data20,189,85,20,240,6,32,210,255,232,208,245,1742
320 data174,47,20,172,48,20,24,32,240,255,173,93,1298
330 data20,240,27,165,161,201,212,176,4,165,160,240,1771
340 data17,32,65,20,238,32,208,238,1,214,32,225,1322
350 data255,208,6,32,49,20,76,198,77,232,208,242,1603
360 data200,208,239,32,66,193,173,95,20,162,96,160,1644
370 data20,32,189,255,169,0,170,32,104,255,169,0,1395
380 data174,94,20,168,32,186,255,169,45,174,16,18,1351
390 data172,17,18,32,216,255,162,1,189,96,20,168,1346
400 data200,152,201,58,144,2,169,48,157,96,20,201,1448
410 data48,208,3,202,16,234,32,49,20,141,0,2,955
420 data76,183,77,58,59,32,65,20,206,32,208,206,1222
430 data1,214,169,0,170,168,76,219,255,32,79,20,1403
440 data169,26,141,0,214,173,0,214,16,251,96,162,1462
450 data0,142,0,255,96,19,18,32,32,32,32,146,804
460 data0,1,0,0,65,72,79,89,33,0,0,0,339